home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 26 / AACD 26.iso / AACD / Programming / AllPlaton / Unsorted / Sinus.AMOS / Sinus.amosSourceCode
Encoding:
AMOS Source Code  |  1992-11-26  |  272 b   |  15 lines
  1. Screen Open 0,320,200,2,0
  2. Curs Off : Cls 0
  3. Palette 0,$FFF
  4. Home : Print "HOTSOFT"
  5. Zoom 0,0,0,56,7 To 0,0,40,320,70
  6. Degree 
  7. ST=8
  8. Do 
  9. '  Wait Vbl  
  10.   For A=0 To 320-ST Step ST
  11.     W=Sin(A+C)*10
  12.     Screen Copy 0,A,20,A+ST,100 To 0,A,100+W
  13.   Next 
  14.   Add C,-ST,0 To 360-ST
  15. Loop